home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / pix / anim / Enterprises.lha / ShowAnim.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-07-28  |  592 b   |  20 lines
  1. /* 
  2.    For use with GarshneBlanker's Executor module.
  3.    To use with Executor:
  4.    Startup: SYS:REXXC/RX ShowAnim
  5.    Kill:    SYS:REXXC/RXSET stop 1
  6.    You should click the mouse to immediately stop blanking.
  7.  
  8. */
  9.  
  10. call setclip "stop", 0
  11. do until getclip("stop") = "1"
  12.     address command "MainActor:mainview -bb -i -r1000 -aUniversal_PicassoII Art:Anim/FLI-FLC/EnterpriseTwice.FLC"
  13.         do 10000
  14.          if getclip("stop") = "1" then break
  15.     end
  16.     address command     "Status >env:ShowAnim com=mainview"
  17.         address command     "Break $ShowAnim C"
  18.         address command        "delete >nil: env:ShowAnim"
  19. end
  20.